home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / saturn.bas < prev    next >
Encoding:
BASIC Source File  |  1984-06-23  |  768 b   |  18 lines
  1. 1980 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  2. 1981 IF INKEY$="" THEN 1981
  3. 1985 KEY OFF:DEFSNG S,A:SCREEN 1,0:COLOR 0,0:CLS:X=160:Y=100
  4. 1990 FOR T=1 TO 200:CIRCLE(RND*320,RND*200),RND*1,3:NEXT T
  5. 1995 CIRCLE (X,Y),50,1
  6. 2000 PAINT (X,Y),3,1
  7. 2005 FIRST =0:LAST=10:CLR=1:SET = 2.2:ANG =1:GOSUB 2025
  8. 2010 FIRST=14:LAST=22:CLR=2:SET=2.05:ANG=1.1:GOSUB 2025
  9. 2015 FIRST=31:LAST=48:CLR=1:SET=1.95:ANG=1.2:GOSUB 2025
  10. 2020 GOTO 2045
  11. 2025 FOR RING=FIRST TO LAST
  12. 2030 CIRCLE(X,Y),85+RING,CLR,SET,ANG,.2
  13. 2035 NEXT RING
  14. 2040 RETURN
  15. 2045 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  16. 2046 IF INKEY$="" THEN 2046
  17. 2050 END
  18.